Imports System.Configuration.ConfigurationSettings

Public Class PaymentNotPaidMail
    Inherits MailBase

    Public WriteOnly Property ShippedDate() As String
        Set(ByVal Value As String)
            Me.Fields("#shippedDate#") = Value
        End Set
    End Property

    Protected Overrides Sub PrepareFields()        
        Me.Fields("#subject#") = AppSettings("EmailTemplate.PaymentNotPaid.Subject")
        Me.Subject = Me.Fields("#subject#") + " on PO MUK Number " + Me.POMUKNumber
        Me.Receiver = Config.ReceiverEmails
    End Sub

    Public Property POMUKNumber() As String
        Set(ByVal Value As String)
            Me.Fields("#POMUKNumber#") = Value
        End Set
        Get
            Return Me.Fields("#POMUKNumber#")
        End Get
    End Property

    Public Overrides ReadOnly Property MailTemplatePath() As String
        Get
            Return System.IO.Path.Combine(Config.TemplateBaseFolder, _
                AppSettings("EmailTemplate.PaymentNotPaid.Location"))
        End Get
    End Property
End Class
